home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / contrast.ifx.pre < prev    next >
Text File  |  2004-08-03  |  589b  |  30 lines
  1. /*
  2.  * $VER: Contrast.ifx.pre 2.5 (25.02.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  *
  5.  * Original version by Steve Tibbett
  6.  * Updated by Thomas Krehbiel
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. Options Results
  18.  
  19. seq = Word(Arg(1),1)
  20.  
  21. Defaults=GetClip("ImpContrastParameters"||seq);
  22. if (Defaults="") then Defaults="127"
  23.  
  24. RequestSlider '"Contrast"' 0 255 Defaults
  25. if RC~=0 then return 10
  26.  
  27. Defaults=Result
  28. call SetClip("ImpContrastParameters"||seq, Defaults);
  29.  
  30.